perm filename EFREND.C[11,HE] blob sn#688195 filedate 1982-12-06 generic text, type T, neo UTF8
/* LINTLIBRARY */
/*
 * efrecend.c
 *
 * EFTP Package
 *
 * EfRecEnd -- close an Eftp channel after receiving a file
 *
 * Jeffrey Mogul @ Stanford	12 February 1981
 */

#include <eftp.h>
#include <pupstatus.h>

EfRecEnd(Efchan)
struct EftpChan *Efchan;		/* Eftp channel to be closed */
{
	if (Efchan->ef_mode&EFTPM_RECEIVE == 0) return(EFTP_ERROR);

	pupclose(&Efchan->pchan);

	return(OK);
}